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A program feature has been constructed Cor CONVERT, closely 
modeled after the similar facility found in many versions of MSP. 
Since it is functional or operational in nature, it has been included 
as a skeleton forct, together with a number of related operator skeletons. 
This Memo describes then, and also the RUL mode, vhlch allow the user 
to specify arbitrary components of a pattern as the result of a 
computation performed vhile the matching process is taking place. 
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Introduction 

CONVKKT, described in (1) , is a programming language which is 
applicable to problems conveniently described by transformation rules. 
Hy this we mean that patterns may be prescribed, each belli* associated 
with a skeleton, so that a series of such pairs uay be searched until a 
pattern is found which matches an expression to he transformed. The 
conditions for a catch are governed by a code which also allows 
subexpressions to be identified and eventually substituted into the 
corresponding skeleton* 

Once a match is achieved, the skeleton which specifies the expression 
to be formed ™ using as huilding blocks the subexpressions identified in 
the matching -- may be quite arbitrary and complex since it is possible 
to transform partial results with the help of additional transformation 
rules. This has been so far accomplished with recursive skeletons* 

The program feature Cor CONVERT, described below, allows us to 
specify these transformations into a rather iterative toanncr, with labels 
and transfers of control. 

We finally will talk about the RUL mode, which allows a CONVFRT 
rule set to define a pattern. This *ode brings all the power of CONVERT 
into the matching process, and enables the user to specify arbitrary 
components of a pattern as the result of a computation performed while 
the matching process is still taking place. For example, in the pattern 
(XXX ABO YYY), C may be defined to watch * number only if it happens 
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to be equal to a 2 + b 2 or smaller than 27 - b, where a a nil b arc tho 
numbers matched by the patterns A and B, respectively. 

Poser j| U ion of skeleto n form s related to th e__i>y op,ram fgatjuv - 

Wc will assume the reader is somewluit familiar with the CONVIIKT 

language. I.e., as described In (1), 

(-PROG- (XXX) SI S2 ... Sn) The skeleton form which introduce* a 

program, (XXX) Is a list of program variables, which are atomic 
skeletons declared to be la the KXPR mode during the execution of 
the program. They may be indicated Co represent fragments by 
enclosure In parentheses, according to the prevailing convention* 
Initially their values are respectively an empty list or an empty 
fragment, but their values may be modified by the operators 
*SET<K =MAKE=, *SE?Q*, and *NAKE*. 

If a program variable is already in use as a skeleton, its 
old value is pushed down upon entrance to the program and automa- 
tically restored upon the completion of whatever replacement is 
called for by the program. 51, $2 , .., Sn arc statements in the 
program which consist of skeletons which are replaced in order, 
starting with the first. In addition to skeletons to be replaced, 
program elements may also consist of heading or location marker* 
(labels), "go to" statements, and "return" statements. 

Since- a (»PROG" ■•-) may contain any pernios J Me skeleton, 
=PFtOG= Inside =PROG=s are permissible at any depth. 
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f*G0TO« 3) TUe akcletons sl » s2 ••• of a *PROG~ are UKPLACM <t,e., 
ve use the function REPLACE to compute their value) sequentially, 
the resulting value being ignored, except when it is of t lie form 
(=COTO= n) or (=RETtt= S) , where we transfer control to n (RBPLACfrJ) p 
or return S (REPLACEd) as value of the -PROG*, respectively. 

If no e RETO= skeleton is found ami we arrive at the en<t q£ 
the program, the value of the (=PROG- . -.) is the value of the 
last skeleton found. 

(=RETN= (-C0TO* n)) In particular, the value pf a (=PROG= ■ ..) tany be 
a (=CGTO* ) statement, so ve Tnay return a (=G0TO* ) stAtftnftiU. 
For example, consider the skeleton 
{-PROG- (ABC) 1 (-SETQ* A 8) 

2 (=PRNT* ...) 

3 (=RKPT= ...) 

4 (-PROG* (A K> Al (X XXX (*SETQ* A (P <J R)) . ..) 

("RCTH- (-COTO* 2)) ) 

5 

Her*, the value of (-PR0O (A E) ...) is <=GOTO- 2), and as a 
result, after restoring the variables A and E to their initial state, 
we transfer to 2. 

The same result could he achieved if instead of {-UKTN- (=COTO* 2)) 
we simply say (-COTO* 2); we may thltft thac, since the inner -PK0O 
lias no statement #2, we empty the program when searching for it, 
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and as a result wc abandon that =PRO0=, giving nfl a value the 
last REPLACED skeleton (tliat is, our («COTO= 2) In question). 
And, since vc abandon the "PROC-, all the bound variables (A and 
E in this case) arc automatically restored to their previous state 

This works at any level. In the same way, also, skeletons 
such as (bRETK- (=RETN= («RKTN= (XXX =SAKE=) ))) are valid. 



1. Automatic Back-Up. In nested ^PROG-'s, we may pop up as many 

levels as necessary, with a skeleton of the 
form ("RETN- C»RETK- - . , (*ROT»« S) .,. )) 

2. Automatic Transfer and relocation of program variables. 

If, inside a -PR0O, ve say («COTO« n) ■ 

the skeleton labelled n is looked for, 

and, if not found in the current 

(-PR0O «..), this Is abandoned, its 

value becomes (-GOTO- n), and this in 

turn originates a search in the higher 

level »PRO», etc, until statement n Is found. 

This is a very convenient way to transfer from inside a 
=PROC= to a statement outside it, going up as many -VROO's as necessary, 
and at the same time correctly restoring all the variables- 
Example. (=PROC= (ABC) 1 (-SETQ* A -READ*) 

(-SETQ- D 5) 

2 (-PROG; (A D) 5 (-SCTQ- A 11) 

(•SBTQ* B 8) 

Mttl 

6 (-GOTO- A) 

7 (-GOTO- B) 



AlO (-rutk- o-coto* '>)) 
9 0-Km\\« (Hiiax- 14)) 
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5 H'HNT- B) 

■ * - - 

8 (A *coac* tSAMK* C) C3) R) 
.... ) 

When entering 2, R has the value 5 and the value of A was read 
from the console; the -PROG- in 2 rebind* A* and It is set 
(in 5, in the Innermost *PKOG^) to the value of H, that Is* to 
5. B is set to 8, also. (It in this ease Is a free variable* 
since It was not bound by the innermost ^PUOC*) ■ Therefore, 
assuming no other "SETQ* has occurred, the statement 6 is equivalent 
to (KIOTO- 5), and we go there* changing the value of A to 8, 
(the value of b) as indicated. 

If we execute statement 7 (and assuming that the value of B 
continues to be 8) ve transfer to the statement PS; in doing 
this we abandon the innermost fc P!U>C fi , and therefore A and 1> are 
rebound to their initial values* namely the S-expresston ro;»d from 
the console* and n (since I) is "undefined" In the outermost «PR(K>* 
stands for itself) . 

The statement 0A1O allows us to go to the P5 (in the outer 
*PROO) , and then we print B t that is, 8. (It, as a free variable, 
has been changed in the inner «PR0O* and this ehnnge still holds). 

The statement $9 "unwinds" bo t h "PROG-'s, and then the valirt 
of the outer -PRQC- is 14. 
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CETWKALIKED -COTO* and -RETN- STATEMENTS. 

In addition to (*GOTO= n) and (-RETN- S) , we have the long ov 
generalized fora 

(•RETM- S SJ S2 ... Sin) 

(-C0TO* n SI S2 ... Sin) 
A replacement is made from left to right, and after to REPLACE the last, 
we return S or transfer to n, respectively. For exawple, 

(-RETS- (*SttfQ- B 5) (-SETQ* A (C R E)) (-SETQ" U 8)) 
we assign Lo B the value 5, to A the value (C K E) , to B the value S. 
And we return 5 (not 8) as value. The value of A is still (C R E); the 
value of B is still 8 t but, unless they are free program variable*, 
this binding la lost when the -RETN- exits the -PROG-. 

Note: Since (-RETN* ,..) and (-GOTO . . •) only make sense in the 

"top level", we do not have the versions (*RHT!J* ...) and (*GOTO* ,..) 

PROGRAM VARIABLES* 

The former examples showed informally how program variables are 
used. They work very much in the same way as MSP program variables; 

(■PROG- (ABC...) ) initializes the variables A, B, C, ... to 

(), and saves their old value?; 

(=SETQ= A SI) makes a REPLACEment on the skeleton 51, and its value is 
assignee to A; A is considered ^QUOT-ed (it is not RKPLACEd). 
The value of (-SKTQ- .,.) i« Uio value of its second argument REPLACEd. 



A *PROC= is exited (abandoned) when: 

1. A (s"-RKTS= S) statement is encountered" in this case tho value* 
Of Che (-PROC- . «.) 1s S REPMCEd. 

2. A (=G0TO= n) statement is encountered and n is not in the range 
of the (=PROG= ..)■ ]n this case, the value of such (*PROG-..) 
is (=GOTO= n), which, if there is an outer -PROG», originates 
in turn a transfer to n (or else the ab;nHtonin£ of that "PROO^ 
etc.). 

3. The end of the program is encountered without having executed 
a (=RETN= ..) or a (=GOTO= ..) transferring outside. In this 
case the value of the (=PROG= . .) is the laftt skeleton RCPIJkCKd 
(or () | if none) . 

In all cases, abandoning the -PROG" causes all its variables to 
be restored to the value they bad when the (>=PKOl-= ..) was entered > 
so that the (=PROG* . ,) is invisible (with respect to its program 
variables) to the rest of the program. 

«5ETQ* may also modify free variables (that is, bounded outside 
the =PROG=), in which case the alteration subsists. 

— A word of caution. Since the value of (=SKTQ* A SI ) Is SI 
REPLACEd, a skeleton such as (^SErQ* B (-GOTO- V)> not only give* Co 
B the value (*G0TO* 7), but in addition tr ansf er* to 7. If this* is 
not what wc want, a siwple way to avoid it is to write 

((=SETQ= B (=GOTO=* 7) )) 
since in this way the value of the skeleton is ((*G0TO* 7)) And 
therefore no transfer Is made at this point. 



(•-MAKE- V SI) Is like =SETQ=, but we REPLACE V first. If the value i»f 
V Is A, then 

(•MAKE** V SI) is equivalent to (•SKTq- A SI) 
find 

(-SETQ" B C) is equivalent to ("MAKE* (-QU0T- R) C) 

FRAGMENT PROGRAM VARIABLES 

Since in CONVERT, fragments are a valid data type, we hnvo also 

fragment program variables, wliieli ue denote by declaring them in 

parentheses; 

(-PROG- (A B (XXX) C) ... 

.^ 3 (=SETQ= (XXX) (>i A C K)) 

note the ( )* V " N , 4 x 

) note the ( ) . 

Here, XXX is one of those. In this example, the value of XXX Is MACK 
and, for example, (-SETQ- (XXX) (1 XXX 2 XXX 3 XXX R)) gives lo (XXX) 
the valve (1 MACK 2 HACK )HK K K), that is, gives to XXX the 
value 1MACK2HACK3MACKR. 

As always, fragments do not have independent existences, but 
they only can occur inside a bigger skeleton [inside n list], 

RELATION AMOXC -PROG- VARIABLES AND DICTIONARY VARIABLES 

Both have the same hierarchy, and in case of conflict, the latest 
binding takes prrcodcncc. 
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For examples if wc delcare in our dictionary ( ... X KSPU (M 1 T) . ,.) 

then outside of (-PR0O (X ¥) ), X has chi? value (M J t) p ami 

inside? it, X has whatever value it has acquired by uso of "SEWJ**s ( 

or (>, if none* Abandoning the *PU0O causes, of course, cho restoration 

of X to its former value (M I T) . 

Although not necessary, we recommend: 

1, To use numbers as labels. 

2. Not to use the same variable .is a progrnm variable and && a 
dictionary variable. 

Warn ing : The prof.rnn variables only have existences jn the right hand 
side of n rule, that is, as (or inside of) a skeleton. Therefore, 
they are j io_t recognized lu the pattern side, tht;ir value* (In n 
pattern) being cither themselves or its associated expression In 
the dictionary, (if necessary, this rule may be modified according 
to the experience gained by the users.) 

HEADERS (labels): Ttu j y arc optional, and they may (rust) be au atom, 
except perhaps NIL. A single statement (skeleton) way have no re 
than one label, or none at all. 

CONDITIONAL STATEMENTS. 

Since a program (in the **PK0C"= sense) is a sequence of anv 
skeletons, any one of these may be of the form 
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(-KHEN- S V SJ S2) 

(=COXI>*- S P Si S2) 

(«KEPT= S Ck ... ) 

(«*CONT= S Ck . . . ) 

(-BEGK- S ! Ck * . . ) 
The first two represent short conditionals, mucli in the saiac w.ty as 
(IF P Q R) is used in some LISP system, such as MBMSP or llawkinson- 
Yates LISP; the reader will recognize the last three: they are tin* 
standard recursive skeletons in CONVERT, and therefore their use here 
does not represent a special case, but the confirmation that any valid 
ekoluton is admissible iftsido a =PROC-. Tiiey play in CONVBRT the sane 
role that COSD plays in LISP. Of course, in general, the collection of 
rules whose name is Ck nay be recursive and use this "PROC-* again. Also, 
it Is possible that, as a result of the application of the set of rules 
Ck to S, the value will be of the fonu (*G0TO*> ..) or (*RBTN- . ■), in 
which case the proper action is taken. 

(•MIES- SPSj S 2 ). Mien skeleton S (replaced) patches pattern P, 

its value is Sj; otherwise is S 2 , or S if S 2 is aissin^. It is 

equivalent co (•COST* S * < 
(P S|) 
<-- S ? ) )) 

(-COKD* ....) differs from (-UHEH- ,...) in this way: when comparing 

S Against P, -WHEN- uses the most recent dictionary, as "COST* docs, 

and =COXO- uses the original dictionary, as -RKPT* does. 
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HTDDKK CONTROL STATEMENTS 

If we declare in the dictionary ( ... G SKEJ. («COTO= 5) , . ) 
then in a program like (=PKOG- (AB) 



C 

.... ) 



C (since It is a skeleton) stands for a transfer to 5. 
This gives to us two advantages: 

1, A shorter notation. 

2. Since vc way change the value of C (after all* G is just 
another skeleton) at running time, the program may modify 
itself during execution. 

For example, n dictionary containing F SKKL =RFj\D- gives to n 
program like (»PROG* (B) 

5 

F 

8 ) 

the ability to request data froa the teletype and exec ute it; tlie 
users may type (=GOTO= 5) or (=SETQ* B 0.0625), or (A ft). In this 
last case, the skeleton (A B) is KEPMCEd, and then, in general* 
control is given to the next statement in sequence* 8 in our example # 
the value of (A B) being lost. 

As a last example in this section, a skeleton of the form 

(^PROG- (AB) 1 

£ i ■ * ■ . 

(-PKOG- (C D) 10 

20 



4 

) 

may be written as (-PROG" (A B) 1 



2 

P 

3 

G « , . , , 



) 



*If A happens to be declared as (A SKEL *RETS« ), then a skeleton like 
(A B) has a value («RETN= B) and, if found in the convenient level f 
causes the »Paoo to return B RI'PLACKd as value- 
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if we define P In Liu* dictionary as 

P SKEL (»rR0G- (CD) JO 20 ) 

As a particular case, P may use itself P SKKL (-PKOO (C D) ]0 ■ 

20 , 
P 
30 - 

Note that a definition like Lliis last one givtfs Co the user the 
possibility to give name to a program and to call it by name. 



FRAGMENT PROGRAMS 

In the same way as P could yland for a single skeleton i,e., a 

(=GOTO* ..)> (-SETQ- ..), (-PR0C- .,), etc.* a fragment pay represent 

any part of a program; 

(=PR0G=(M) 1 

2 (-PRKT- 2) 
(-GOTO- 1) 
(■=SETQ- M R) 
G 
6 (-HHEH- M 1000 (-BEGN- R) (-RETN- (X XXX YYY))) ) 

say be written as* 

(spROG*- (H) 1 

2 (-PRKT- 2) , . . 

6 (-WHEK- M . . . ) ) 

If w* declare WWW as (WWW) SKEL ( (-GOTO- 1) (-SGIQ- M R) C) * 

WWW may, naturally, use itself, or, for example, WWW may use C am! 

G may use WWW. 



The rule for fragments is: fragments encountered In the progrfla 

are RGPLACEd and it* value Interpreted 
&s a part of the program* (We may think 
of appending the value to the rest of the 
program). Fragment programs cannot contain 
' Intel*, 



-»- 



An Interesting case arises vlicn, depending upon the nature of certain 

dat&, we have to choose auong several subprograms lo handle it, and 

then return to a coroiaon merging point. Tor example, 

(=PROG= (MM) 1 

2 

(*W1EK* DATA PROPERTY! (WWW) (XXX) 1 

4 

5 ) 

Hero, depending upon DATA having PROPERTY 1 or not, we cltOQSO aitiani; 

subprogram WWW or subprogram XXX. Tlie utility o( this charae terl* tic 

arises when WWW f XXX, etc., arc used in several places in Lhe earn* 

program, *o the return address is not the same in every case. Of course* 

another way to make the return is to do 

(-SETQ- SWITCH n) in the calling sequence., and 

(-GOTO- SWITCH) as return transfer in the subprogram* 

An alternative (and perhaps wore elegant way) is to write 

(«PROG- (U) 1 

2 

(*WHEtf* DATA PR0P1 (WWW) (XXX)) 

3 

4 

(*UHKH* DATA PROPl (KKtf) (XXX)) 
5 ) 

or, even better, 

(=PROG= (M 8) 1 

2 



3 

4 

sra 

5 ) 

where MH3 is declared in M ok (SM) SKK1, ((*W1lft* DATA PROl'l (MAT) (XXX) )), 



-15- 

Used in this fashion, fragment prograns arc closed, callahlc subroutines* 
with which the programmer doe? not have to worry about return addresses. 

GENERATION OF SUBPROGRAMS. A PKOG*. 

As usual, there exists the * version of =PROG=, namely *FKQG*» 
The v;tlue of (*PROG* (M N) . .■} is the content of the value that 

(-PR0O (M K) ---) would produce. 
The last sentence only rakes sens** if the resulting value of -PB0O is a 
list. Anong other things, (*PROG* .,.} allows us to produce (to generate) 
a CONVERT program* and then to run it. 

The RUI, rK»de. 
P KUL S 

This entry in the dictionary defines the a ton P as being a pattern 
whose natch is carried out in the following way: 

When compared against an expression E, P applies to that 
expression the set of rules S, and watches the result of that 
transformation, if it is -FAIL*, P fails to patch E. If it is 
the atoa «TRUK», a success is reported: P did, match II; whatever 
variables were bound in this natch are kept (that is* vc keep the 
variables hound by the transformation S when it was being applied 
to C) and they enrich the current dictionary. 

Suppose we are comparing a pattern (P 3 Pj ... P. PP. ... P > 
against a certain expression* and P is defined In the dictionary to 
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bc In the RUL mode: 

P RUL S. 
Khen wc arrive at P, Just before it starts its coMparfson, 
patterns P. through P. liave already been matched (successfully)* 
tentatively at legist, and they have identified several snbvxprcBfliona; 
that is* certain variables have been bound: sowe L'AK's .iiul PAV's 
have changed to YAK* etc., all this information i$ t of course t in Clic* 
current dictionary. 

Now we want to compare P with its corresponding expression (all 
it E 1 )* tte take the current dictionary and with ltd help ve apply 
the transformation S to E 1 ; that is> variables which were hound In 
P >•■ P. retain their value Inside S and are therefore available. 

If the transformation is successful (its value is -TKUK"), a new 
dictionary has been produced; we will use it when ve compare IV 
through P • 

SUMMARY 

P RUL S appears in the dictionary. S is a set of rule it which is 
applied (under the current dictionary) to E; the skeletons of S may 
have only twvalies, =TRUE= or ■FAIL^i 

The rules of S specify the conditions under which P watches or fails. 
Since the actual dictionary is available f these conditions are (con hi*) 
functions of previous ;&atchlnj;A. 
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If some rule of S is successful, the variable* brand by it?* 
pattern-half are kept for future comparisons t 

Example 1, CONVERT{ (X PAV -ATG- 

R RUL ( (*ATO- »PAt)i*) 

< (~*» x ) «TRW> ) 

( mm -FA5X-) 

) 
> 



«a) n <c>) 

(Cl ( (R (X X X» >) ) 

We compare R to ((A) B (C)); if (<A) U (C)) vcrc ail Alois, uwild he 
rejected, says (&ATO« "FAIL**) * Now we soe i£ it is a list containing ou 
atosi B« Therefore, the answer is (B BB). 
The saufr program applied to A anaver& A, 

Applied to «> () () ()> «wri (O O) 

Applied to (()12 3 6) answers (1 1 1) 

Example 2. Let H —the first argument of (CONVERT HIE R)— be 

(A PAV =NUtf- 
B PAV -NUM- 

C RUL ( ( -NUN" (-PKOC- (} 

(-SETQ- 1) (-THIS- 4 A «SAMi>)) 
<»WCi:x- (-S.VH> ("-PLUS- A R)) (Y Y) 
(=RKTK= -TRUE-), 

("COST- (A B -JUXK*) <?.$) >>> 

( -* -FAIL-) )) 
Let T be (Y) — the dictionary of initially undefined variable^-" 
Let the pattern bcXng Compared in this nofrcnt be (»•*-• A — = B --- C •*• 
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(this pattern Is found in some rule of K, fourth argument of CflKVKBT) . 

C will match a number equal to A + H, or else C8 is called to 
transform (A ft -SAME"); If that transformation c*ves (=RETN» ^TKUK=) as 
value, C will natch that number. 

C also refuses to natch anything but numbers* 

In the iv.n cm time, 4AC luis been stored in 1). 

OBSERVATIONS: 

1. It makes no sense to have a fragment version of the RVL mode, 
or to have *TRUE*, for instance. 

2. As it is implemented, now everything which is not "TRUE" 
is supposed to be "PAIl^- Therefore, only the rule** of 
succc*;ft deserve to be mentioned. 

AVAILABILITY 

The »PROG* raw feature already forma part of the CONVKKT processor* 
Link COKVRT SAVED T316 4170 
It runs smoothly ■ Nevertheless... for bugs: phone X 5866 , A. CuftmJn* 
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